home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / TSMTE.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  3.1 KB  |  102 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        TSMTE.mod
  3.  
  4.      Contains:    Text Services Managerfor TextEdit Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE TSMTE;
  23.  
  24. IMPORT SYSTEM, Types, TextEdit, Dialogs, TextServices;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31.     kTSMTESignature*                = LONG("tmTE");
  32.     kTSMTEInterfaceType*            = LONG("tmTE");
  33.     kTSMTEDialog*                = LONG("tmDI");
  34.  
  35.  
  36. CONST
  37.     gestaltTSMTEAttr*            = LONG("tmTE");
  38.     gestaltTSMTEPresent*            = 0;
  39.     gestaltTSMTE*                = 0;                            (* gestaltTSMTE is old name for gestaltTSMTEPresent *)
  40.  
  41.     gestaltTSMTEVersion*            = LONG("tmTV");
  42.     gestaltTSMTE1*                = $100;
  43.  
  44.     kTSMTEAutoScroll*            = 1;
  45.  
  46. (* callback procedure definitions**)
  47. TYPE
  48.     TSMTEPreUpdateProcPtr* = (*ΔΔ Types.ProcPtr;*) PROCEDURE(textH: TextEdit.TEHandle; refCon: LONGINT);
  49.     TSMTEPostUpdateProcPtr* = (*ΔΔ Types.ProcPtr;*) PROCEDURE(textH: TextEdit.TEHandle; fixLen: LONGINT; inputAreaStart: LONGINT; inputAreaEnd: LONGINT; pinStart: LONGINT; pinEnd: LONGINT; refCon: LONGINT);
  50.     TSMTEPreUpdateUPP* = Types.UniversalProcPtr;
  51.     TSMTEPostUpdateUPP* = Types.UniversalProcPtr;
  52.  
  53.     TSMTERec* = RECORD
  54.         textH*:                    TextEdit.TEHandle;
  55.         preUpdateProc*:            TSMTEPreUpdateUPP;
  56.         postUpdateProc*:            TSMTEPostUpdateUPP;
  57.         updateFlag*:                LONGINT;
  58.         refCon*:                    LONGINT;
  59.     END;
  60.  
  61.     TSMTERecPtr* = POINTER TO TSMTERec;
  62.     TSMTERecHandle* = HANDLE TO TSMTERec (*ΔΔ POINTER TO TSMTERecPtr*);
  63.  
  64.     TSMDialogRecord* = RECORD(Dialogs.DialogRecord)
  65.         (*ΔΔ fDialog*:                Dialogs.DialogRecord;*)
  66.         fDocID*:                    TextServices.TSMDocumentID;
  67.         fTSMTERecH*:                TSMTERecHandle;
  68.         fTSMTERsvd*:                ARRAY 3 (*ΔΔ[0..2]ΔΔ*) OF LONGINT;                (* reserved*)
  69.     END;
  70.  
  71.     TSMDialogPeek* = POINTER TO TSMDialogRecord;
  72.  
  73.  
  74. CONST
  75.     uppTSMTEPreUpdateProcInfo* = $000003C0; (* PROCEDURE (4 byte param, 4 byte param); *)
  76.     uppTSMTEPostUpdateProcInfo* = $000FFFC0; (* PROCEDURE (4 byte param, 4 byte param, 4 byte param, 4 byte param, 4 byte param, 4 byte param, 4 byte param); *)
  77.  
  78. PROCEDURE NewTSMTEPreUpdateProc*(userRoutine: TSMTEPreUpdateProcPtr): TSMTEPreUpdateUPP;
  79.     (*$IF NOT GENERATINGCFM *)
  80.     INLINE PASCAL $2E9F;
  81.     (*$END*)
  82.  
  83. PROCEDURE NewTSMTEPostUpdateProc*(userRoutine: TSMTEPostUpdateProcPtr): TSMTEPostUpdateUPP;
  84.     (*$IF NOT GENERATINGCFM *)
  85.     INLINE PASCAL $2E9F;
  86.     (*$END*)
  87.  
  88. PROCEDURE CallTSMTEPreUpdateProc*(textH: TextEdit.TEHandle; refCon: LONGINT; userRoutine: TSMTEPreUpdateUPP);
  89.     (*$IF NOT GENERATINGCFM*)
  90.     INLINE PASCAL $205F, $4E90;
  91.     (*$END*)
  92.  
  93. PROCEDURE CallTSMTEPostUpdateProc*(textH: TextEdit.TEHandle; fixLen: LONGINT; inputAreaStart: LONGINT; inputAreaEnd: LONGINT; pinStart: LONGINT; pinEnd: LONGINT; refCon: LONGINT; userRoutine: TSMTEPostUpdateUPP);
  94.     (*$IF NOT GENERATINGCFM*)
  95.     INLINE PASCAL $205F, $4E90;
  96.     (*$END*)
  97.  
  98. (* $ALIGN RESET*)
  99. (* $POP*)
  100.  
  101.  END TSMTE.
  102.